setwd('/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/maqc/affy_plus2_taqman/2/')
library(affy)
library(frma)
data<-ReadAffy()
#rma<-rma(data)
rma<-frma(data,summarize = "batch")
write.exprs(rma,"frma_normalized.txt",sep="\t")

setwd('/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/maqc/affy_plus2_taqman/3/')
library(affy)
library(frma)
data<-ReadAffy()
#rma<-rma(data)
rma<-frma(data,summarize = "batch")
write.exprs(rma,"frma_normalized.txt",sep="\t")

setwd('/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/maqc/affy_plus2_taqman/4/')
library(affy)
library(frma)
data<-ReadAffy()
#rma<-rma(data)
rma<-frma(data,summarize = "batch")
write.exprs(rma,"frma_normalized.txt",sep="\t")

setwd('/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/maqc/affy_plus2_taqman/5/')
library(affy)
library(frma)
data<-ReadAffy()
#rma<-rma(data)
rma<-frma(data,summarize = "batch")
write.exprs(rma,"frma_normalized.txt",sep="\t")

